(defmacro curly (&rest x)
  (? (| (string? x.)
        (keyword? x.))
     `(make-object ,@x)
     `(progn ,@x)))
